home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 August (Alt) / CHIP 2005-08.1.iso / program / guvenlik / syslinux-3.07.exe / version.pl < prev    next >
Encoding:
Perl Script  |  2005-01-04  |  583 b   |  27 lines
  1. #!/usr/bin/perl
  2. #
  3. # Read the "version" file and produce some macro declarations
  4. #
  5.  
  6. use Fcntl;
  7.  
  8. ($vfile, $vout, $def) = @ARGV;
  9. sysopen(VERSION, $vfile, O_RDONLY) or die "$0: Cannot open $vfile\n";
  10. $version = <VERSION>;
  11. chomp $version;
  12. close(VERSION);
  13.  
  14. unless ( $version =~ /^([0-9]+)\.([0-9]+)$/ ) {
  15.     die "$0: Cannot parse version format\n";
  16. }
  17. $vma = $1+0; $vmi = $2+0;
  18.  
  19. sysopen(VI, $vout, O_WRONLY|O_CREAT|O_TRUNC)
  20.     or die "$0: Cannot create $vout: $!\n";
  21. print VI "$def VERSION \"$version\"\n";
  22. print VI "$def VER_MAJOR $vma\n";
  23. print VI "$def VER_MINOR $vmi\n";
  24. close(VI);
  25.  
  26.  
  27.